Создать файл, содержащий фамилии рабочих и их среднемесячный заработок. Напечатать фамилии рабочих, имеющих наибольший заработок- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
CLS
OPEN "zavod.dat" FOR APPEND AS #1
TYPE p
    fio AS STRING * 50
    zar AS INTEGER
END TYPE
INPUT "vvedite kolichestvo rabochih", n
DIM pr(n) AS p
FOR i = 1 TO n
    INPUT "fio", fio(i)
    INPUT "zarobotok", pr, zar(i)
NEXT i

Похожие записи/страницы:

Leave a Comment